home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nebula 2
/
Nebula Two.iso
/
SourceCode
/
AdobeExamples
/
NX_CtlPoints
/
ControlViewWraps.psw
< prev
next >
Wrap
Text File
|
1995-06-12
|
3KB
|
99 lines
/*
* (a) (C) 1990 by Adobe Systems Incorporated. All rights reserved.
*
* (b) If this Sample Code is distributed as part of the Display PostScript
* System Software Development Kit from Adobe Systems Incorporated,
* then this copy is designated as Development Software and its use is
* subject to the terms of the License Agreement attached to such Kit.
*
* (c) If this Sample Code is distributed independently, then the following
* terms apply:
*
* (d) This file may be freely copied and redistributed as long as:
* 1) Parts (a), (d), (e) and (f) continue to be included in the file,
* 2) If the file has been modified in any way, a notice of such
* modification is conspicuously indicated.
*
* (e) PostScript, Display PostScript, and Adobe are registered trademarks of
* Adobe Systems Incorporated.
*
* (f) THE INFORMATION BELOW IS FURNISHED AS IS, IS SUBJECT TO
* CHANGE WITHOUT NOTICE, AND SHOULD NOT BE CONSTRUED
* AS A COMMITMENT BY ADOBE SYSTEMS INCORPORATED.
* ADOBE SYSTEMS INCORPORATED ASSUMES NO RESPONSIBILITY
* OR LIABILITY FOR ANY ERRORS OR INACCURACIES, MAKES NO
* WARRANTY OF ANY KIND (EXPRESS, IMPLIED OR STATUTORY)
* WITH RESPECT TO THIS INFORMATION, AND EXPRESSLY
* DISCLAIMS ANY AND ALL WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR PARTICULAR PURPOSES AND NONINFRINGEMENT
* OF THIRD PARTY RIGHTS.
*/
/*
* ControlViewWraps.psw
*
* Version: 2.0
* Author: Ken Fromm
* History:
* 03-07-91 Added this comment.
*/
/* StartTime is stored in the interpreter and contains the initial real time */
defineps PSWMarkTime ()
/StartTime realtime def
endps
/* The difference between the current real time and the initial time stored */
/* in StartTime is returned to the calling procedure in the output arg ElapsedTime. */
defineps PSWReturnTime (|int *ElapsedTime)
realtime StartTime sub
ElapsedTime
endps
/*
* This wrap is called in the +newFrame:(NXRect *) frm method to
* define and bind procedures in the interpreter. These procedures
* are then called from within other wraps.
*/
defineps PSWDefsView (float BGColor, BGColorStr, BGWidthStr, BGrect[4])
/BGC BGColor def
/BGCS BGColorStr def
/BGWS BGWidthStr def
/BGR BGrect def
/EV {
BGC setgray
BGR dup rectfill
BGCS setgray
BGWS setlinewidth
rectstroke
} bind def
endps
defineps PSWEraseView ()
EV
endps
defineps PSWBasic(float X, Y; char *Figure, *Op)
X Y Figure Op
endps
defineps PSWUserPath (float numstring Pts[Tot_Pts]; int Tot_Pts; char Ops[Tot_Ops]; int Tot_Ops; char *Op)
[Pts (Ops)] Op
endps
defineps PSWRectDraw (float numstring XYScratch[j]; int j; char *rectOp)
XYScratch rectOp
endps
defineps PSWShow (float X, Y; char *Char)
X Y moveto (Char) show
endps
defineps PSWXYShow (float X, Y; char *CharString; float numstring XYCoords[j]; int j)
X Y moveto (CharString) XYCoords xyshow
endps